#!/usr/bin/perl -w

use strict;
BEGIN
{
	push @INC,"../module";
}

END
{
	pop @INC,"../module";
}

use Tk;
use mainUi;

my $mainUi=mainUi->new();
$mainUi->CreateMainUi();
my $mainWin=$mainUi->GetMainWindow();
print $mainWin;

$mainUi->Run();

